pragma Ravenscar;


with System;
with Ada.Synchronous_Task_Control;
use Ada.Synchronous_Task_Control;
with Ada.Real_Time;
use Ada.Real_Time;
with Ada.Text_IO;
use Ada.Text_IO;
with PO;
use PO;
with DataSpec;
use DataSpec;


package ReaderTask is

    task type RT(Pri : System.Priority; Cycle_Time : Natural; Id : Positive) is
      pragma Priority(Pri);
   end RT;

   RT1 : RT(2,2000000,2);
   RT2 : RT(2,1000000,3);

end ReaderTask;
